< previous page page_233 next page >

Page 233
   ul2.usri2_flags = UF_NORMAL_ACCOUNT Or UF_SCRIPT
   ul2.usri2_max_storage = USER_MAXSTORAGE_UNLIMITED
   ul2.usri2_acct_expires = TIMEQ_FOREVER
   ul2.usri2_logon_hours = VarPtr(HourList(O))
   ' Allow login only on Saturday from 11:00PM to midnight!
   Call SetBitValue(HourList(), 7, 23, True)

   res = NetUserAdd(0, 2, VarPtr(ul2), parm_err)
   Debug.Print "Result: " & res
   If res <> 0 Then Debug.Print "Error at index: " & parm_err
End Sub

 
< previous page page_233 next page >